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Secretary's Report 

Last month we had another great meeting, with a record 73 people turning 
up. Everyone who eirrived at the meeting now has a nametag, hopefully left 
with us to bring along each meeting night. It was a great help to be able 
to look at the nametag of the person we were talking to if we didn't know 
them. 

Olwen opened the meeting at a quarter to eight, and Andy gave another of 
his terrific talks on programmable graphics. Further on, you will find the 
notes of his last talk (now a couple of months ago) with this newsletter. 
Sorry it is a bit late, but Andy has hardly been in the country over the 
last couple of months. 

Also elsewhere in this newsletter is part three of Allan Clarke's lesson on 
Assembly Language for Beginners. 

*#***#******#**#»**#*#*#*#** 

Chris Bishop is now our official Newsletter Editor. For the last few 
months I have been doing the newsletter, and Chris (who works at Rank 
Xerox) has been photocopying it for me. I have then distributed it (with 
the help of my feimily in addressing, folding, stamp licking etc.) However, 
I have found that it was just too much trying to cope with the newsletter 
as well as everything else I was trying to do, so Chris has kindly stepped 
in. He has several plans in mind - one is to start up a 'swap shop' where 
interested people wishing to swap programs they are sick of, can get send 
their programs to him and he will publish the details in the newsletter. 
However, he stresses that your tapes must be originals - either Rakon tapes 
or ours, and he will keep an eye out so that no-one sells the same tape 
twice! 

I would like to thank. Ernie Roots at this point, for the marvellous job he 
made of Newsletter Editor, until his boss thought that his time was better 
spent 'on the job'. Ernie is now dividing his time between Auckland and 
Wellington, and just hasn't got the time available any more. But thank you 
Ernie, you did a great job. 

***#*******#****###**#***** 

Our first lot of royalty payments were made in the middle of September. 
Nearly $200.00 was paid out to three different companies, and all have 
written back expressing gratitude for the payments. James Brier, whose 
programs Bank Robber and Invaders we are selling, said that our sales are 
'marginally above' the English sales. Tomorrow Computers, who sell the 
Colour Quest adventure series, also were 'surprised and pleased' at the 
number of programs we are selling. The next payment will be in December. A 
nice Christmas present for the English companies. 

*»#*****************#**#**#**#*#** 
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You will find 'Software Lists' now available. The country members should 
all have them with their last (No 9) newsletters. I do apologise for the 
delay in sending the October newsletters, but I wanted to get this list 
typed up and photocopied so that it could go out at the same time, and I 
just didn't realise how much time it was going to take me. 

These lists will be updated from time to time. You will find pages in your 
newsletter that can be taken out and added to the software list. We 
already have another few programs to add to the list now. Also, a couple 
of programs that are brand new might have a bit of a delay in copying, 
while Ken gets the original from me, and makes up a master. 

New softweire for this month is: 

AlO Bomber $10.00 

This program, according to Gum's review is a lot better than 'Scramble' - 
which we already have. It has several screens and skill levels. 

******************************* 

Still no sign of the Gum magazine. Apparently, the September issue has 
been scrapped, and a 'twice-as-big' September/ October issue will be sent to 
us 'some time over the next couple of weeks'. Hopefully it will arrive in 
time for the meeting. I am writing this at the end of October, so I have 
got two weeks yet before I need to panic! It better be here!! 

Ken and Andy have offered to re-align the heads of tape recorders of those 
that are having trouble with loading. Just bring your recorders along to 
the meeting, and (time permitting) they will realign them on the spot. 

MUSIC 

Those of you that have purchased this tape so far, can you please change 
Line 134 to say Colour 10 instead of Colour 16 as it is at present. Those 
purchasing after 20th October will have this changed already. This 
program, on arrival from England, unfortunately slipped through without 
being checked (naughty, naughty!). 

You will find a review on this program from Keith McGill, who picked up 
this error. He thought, until he went through the program, that the 
graphics were pretty poor. If you don't want to change this line and 
re-save, just send your tape back to us, and we will do it for you. 


* There will be a small Christmas party next month. Can you all » 

* bring a plate each please, and the drinks will be 'on the house' * 

* so to speak. As we are in a churcdi building we will have to keep * 

* it toned down, but we do want to celebrate the coming Christmas * 

* season. # 



f 
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STATE ACmJNTS 



In future I will include details on our monthly bank balance, just to keep 


you up to date with finances. 



Balance last month (as at end of September) 

1689.89 


Deposits for October from software sales 

+ 926.90 


Less Monies Paid Out This Month 
royalties 97.03 

400 blank tapes 495.60 
photocopy paper 15.00 
nametags 37 . 85 
rent 15.00 

2616.79 


stationery 13.80 
postage 96.70 
software etc. for resale 458.05 

- 1229.03 



$1387.76 


Monies invested @ 9% with United Bldg Society 

- 1000.00 


Balance in cheque account 

$ 387.76 


With the $1000.00 invested this month, we now have 
the United Building Society on call at 9 %. 

a total of $1500.00 with 


If anyone wants to look at 'the books' do feel 

free to ask me. I bring 


them along each time to the meetings. 

- Nola Huggins 



MEMBER'S REQUESTS 


from KERRY REID 

He needs a joystick routine that he can add to his programs as he has a set 
of joysticks and would like to adapt more of his programs to work with 
them. Can anyone help? 

fro* GENE RIGSiEV 

He would like to know if there are any other members that are Primary 
School teachers. He would be interested to find out the use, if any, of 
their Genie in the classroom. He writes and uses Drill-type programmes, 
and occasionally uses the Genie for word processing, but other ideas would 
be welcome. Anyone out there? 


I have had a Jot of phone calls and messages about the Stirling Barr/word processing 
tape episode. However, 1 would like to include this letter in our newsletter, as it 
seems to sum up the general feeling. 


48 Beatty Rd . 

PuUekohe 1800. 

Dear NOLA, 

I have just received my newsletter , and a-fter reading the 
remarks, regard i ng Mr. Barr and his full o-f errors W/P 
tape???, I +eel compelled to write and give my views on the 
program. I have used the tape on a number o-f occasions and 
am using it now to write this letter. I can only say that I 
have never had any problems with 1 oad i ng , runn i ng or using it 
and have -found it -free o+ any -faults as yet.. For the price 
it must be the best value -for money in these inflated times. 1 
just cannot understand why or how anyone could experience so 
many problems, and wonder if perhaps they may be self 
i nf 1 i c ted , i e, f aul ty 1 oad i ng , etc . Per haps he has the wrong 
version, old ROM or new ROM?. Any way I find it of immense 
help, not being over keen on writing and basically a lazy 
type, and now find letter writing a p 1 easure . I t ’ s nice to see 
that you have retained a sense of humour, in spite of the 
abused better half, and can only hope that Mr. Barr sees the 
folly of his ways, and gracefully retreats with at least some 
honour . 

For tunatel y, these difficult ’areas’ are in the minority so 
keep it up NOLA, the groups doing just fine.. 

And now I also find the flying bytes program a lot of 

fun, and like you havent managed to do much right. Really good 
value. 

I wish I had more time to spend at it. I’m ordering more 
tapes on the form enclosed, so I wish you all well and good 
comput i ng . 

regards 



Ne ill Gr usn i ng. 


from ROSS KAY 

E.G. 2501 BANK ACCOUNT 
CHANGES TO PROGRAMME 
Line 250 Change 320 to 520 

Line 360 Shift FOR J=1 TO 100: NEXT J To af ter, ( Y/N) " J 
LINE 420 Remove << Son >> 

Line 1500 Add space after pay and befor " 

Line 1990 Add space after value and before " 

Line 2330 Change 2240 to 2235 

ADD line 2335 Print Q 608, "RECORDING DATA." 

ADD line 2305 Print S 320, CHR$ i 30) : Pr i n t S 440, CHRa(30): 
Print @ 520 CHR*(30): Print Q 600,CHK*(30) 


EDITORS NOTE 

Those o-f you at the last meeting will recall that due to 
increassed membership and demands tor software Nola was not 
able to give enough time to the newsletter as well. So as I 
have been involed with the letter for awhile the commitee 
asked if I would take it on fully. 

Bo any ar t i c 1 es , quer i es or cor espondance regarding the 
newsleter should be now sent to me at 
6 JENANNE PLACE GLENFIELD AUCKLAND 

When space permits we will have a feature called SOFT 
SWAP SHOP <try saying that fast three times). The idea being 
that if you are tired of a certain GAMES program (I don’t 
think yu can get fed up with a utility), then let me know 
what you want in its place and I will print it. It will then 
be up to other members to contact you direct to arrange the 
swap 

Tliis feature is on a trial basis and if we find people 
swapping copies of tapes it will be stopped. If anyone 
offers you a tape which is a copy please tell one of the 
commitee. Remember the club exists for your benefit and if 
it folds through abuse and cheating YOU are the ones that 
will suf f er . , 


CHRIS BISHOP 


SOFT SWAP SHOP 

PAUL SEY13;-- Swap ANDROMEDA for any adventure game without 
graphics or SAUG 

CHRIS E-ilSHOP:-- Swap METEOR for any action game 


Addresses phone Mo’s available from membership list 


Chris Draper of Taupo, has sent in the following article on the TOOLKIT 
which IS available from Moonshine. Before ordering though, make sure you 
are able to get them. 

Toolkit IS on t:.h'kOM based prograM designed to aid the user 
in WY'iting and debuging Machine code* It can also copy Colour 
Genie software > and load/convert TRS-BO tapes* CoMMing in two 
EPROMSf which fit a standard Cartridge boards (this is available 
also). Toolkit plugs into the expansion interface on the rear of 
the COMP u ter. 

To enter Toolkit# use the coMMand "CALL' COOO" #and Toolkit 
will introduce itself* The coMMands # which can all he quickly 
Mastered# are all one letter entry# followed by any relevant 
data* The prograM is well er r or -tr apped so new users will not 
find theMselves in difficulty over Miss-entered coMMands or# 
where possible# Missing data. 

Here is a brief suMMary of the coMMands* 


COHMAND 
Break point 
Ascii 
Eiinar y 
Cancel 
DUMf) 

E d i t 
F' i ri d 
Goto 
Hunt 

Trip ut/i nit 
Jump Calc 
K e y r e ^sd 
I... o ad 
Move 

TRS-GENIE 
Ou tp u t 
F-'lace 
Q u i t 

Redef i ne 
B';JMbO 1 
T r ace 
1.) e t' 

'v' e I' :i. f '■j 
Wr :i.te 
Excharige 
Zero 


DESCRIPTION 

Set breakpiont at specified address 

Dump MeMory in ascii foi'Matt froM specified address 

Maths & hex/dec i M3 1 /binary converter 

Cancel Printer 

Dump MOMMory in hex fornatt 

Write and alter prograMS in RAM 

Locate specified byte 

Transfers control to anywhere in MeMory 
Locate specified 16 -bit address 
Input froM por t /In i t i a Ise Toolkit 
Calculate jump relative disp laceMents 
Write Text into MeMory 

Load SysteM/basic or TRSBO for Matt Tapes 
Mov(? any MeMory block 

Convert TREJ L2 basic to Colour Genie Basic 

Output to port 

Place a tracepoint 

Quit to basic 

R e d e f i n e u s e i' are <3 

E> y M b o 1 i c d u m p ( d i s a s s e m b ]. e r ) 

Trace operation of a prograM 
A c t i V a t e u a er' r o ij t i ri e 
Comp are two blocks of MCMory 
Write Cenie/TRSEH) systen tape 
Swap two blocks of MCMory 

Fill any block of MeMory with sopecified byte 


I^ve been using Toolkit for sevei'al Months and I'm 
delighted with it# its a credit to its designers at 

Modec InstruMents* All the instructions are easy to use# but I 
still advise you to keep a copy of the ZBO instruction set handy 
if you intend to use Toolkit to its fullest capabilities* 


Toolkit is available froMJ 


Moonshine CoMputers Ltd 
70 Vicoria St# 

Lower Hutt* 



B£yX£H o£ MUSIS (Gumboot Software) 


This tape is pretty basic, in more senses than one. It could be useful, it 
could be fun in the right hands, although it is open to some criticism from 
the teaching methodology side - no positive reinforcement, no immediate 
correction of errors, no scoring. 

The options are: 

(1) PIANO 

The action and sound is more like an organ. Uses Keys 1-8 for an octave 
(choice of high, middle or low) with Q W R T Y for the black notes. A bit 
restrictive if your desired tune exceeds an octave, unless you have nimble 
fingers. 


(2) WRITE / LOAD / SAVE PROGRAMMES 

Quite useful. Limited in its ability to create varied time values and very 
slow on "save". 

(3) MUSIC TEST 

Quite good aural training. Does not score you. Two levels of difficulty. 

(4) PLAY THAT TUNE 

A "Simon Says"-like test of musical memory. Doesn't score you, and doesn't 
point out your mistedces or repeat correct sequence. Any number of notes 
between 1 and 10 can be selected. 

- Keith McGill 





FSK filter tnr computers 

A problem well known to personal 
computer users is the difficulty of 
swapping cassette tapes containing 
software. One of the main reasons 
for this is the setting of the 
read/write head in the cassette 
recorder. This should be at 90“ with 
respect to the tape but in practice 
this is not always the case, with the 
result that loading a program from a 
'strange' tape causes problems. 
When using FSK (Frequency Shift 


Keying) the signal cleaner here pro- 
vides a very marked improvement. 
The time spent searching for the cor- 
rect signal level is then greatly re- 



ejjdKuA, 


july/august 1984 


duced. As the filter requires only five 
components there should be no 
problem finding a space for it within 
the case of any computer. 

The layout of the circuit is not at all 
complex. The signal passes first 
through the low-pass filter, consisting 
of Rl and C2, which has a cut-off 
frequency of about 1600 Hz. In fre- 
quency shift keying a '0' or '1' is 
recorded on the tape as a sinusoidal 
signal (with frequencies of 1200 and 
2400 -Hz respectively) so this filtering 
removes all the 'rough edges' 

(figure 2a) from the signal. The result 
is shown in figure 2b. The two 
diodes limit the amplitude of the out- 
put signal to about i6(X} mV. M 





ACKRMRl.Y FW BEGINNERS 


PART THREE 


I am even more amazed than you that the last set of programs worked as they were 
written at a great height (over the Pacific) without any opportunity to check 
them out on a Genie of any kind. It may be too optimistic to expect the 
programs to work for a third time as I am still Genie-less but now at a great 
distance (19,000km;. nevertheless, here goes. 

A useful utility for a BASIC programme is the ability to save and restore a 
particular format on the screen. This can be done in BASIC but tends to be 
rather slow and can detract from the enjoyment of a game. This machine code 
routine is simple, fast and can be incorporated into a BASIC program. 

As before, load up your monitor (G-MON is assumed for these articles) and type 
in the following under the Modify command starting at 7F00: 

21 00 44 11 00 BO 01 CO 03 ED BO C9 
(See previous articles if you are not sure of what to do). 

Exit (X) from the Modify code and return to BASIC (S). Now enter the command 
CALL7F00. Nothing much seemed to happen? What tiiis routine does is to shift a 
copy of the screen data into memory using the powerful instruction LDIR (load, 
increment and repeat). 


21 00 44 

LD HL,4400H 

Load the start of text screen into HL 



register. 

11 00 BO 

LD DE.BOOOH 

Load the destination address into DE 



register. 

01 CO 03 

LD BC.03C0H 

Load No. of screen bytes into BC 



register- 

ED BO 

LDIR 

Copy screen into memory at BOOO 

C9 

RET 

Return to BASIC. 


It is all very well saving the screen but how do we get the screen back? Simply 
by reversing the values in the HL and DE register pairs. Type CALL BCDO to 
re-enter G-MON and type in the following under Modify starring at 7F17: 

21 00 BO 11 00 44 01 CO 03 ED DO C9 

Exit from the Modify mode, return to BASIC (S) and type call 7F17. You should 
now have the screen back just as it was when you saved it. 

If you play ai'ound with the save-and-restore routine as it is you will find that 
it does not save tlie colours if you alter the colour layout of the screen 
between saving and restoring. We have to save the colour information as well. 
Although there is a better way to do this, we will use the same routine for now 
as these articles are for the beginner rather than a dazzling display of obscure 
elegance. 


The current screen colour information is held at FOOOH. So we have to alter the 
address going into the HL register pair from 4400H to FOOOH. We also have to up 
the value going into the DE register from BOOOH to B400H. Now reenter GMON and 
the full program can be entered. REALLY lazy hackers will only fill in the 
missing bits. Starting at 7F00 the complete program is; 


21 

00 

44 

11 

00 

BO 

01 

CO 

03 

ED 

BO 


21 

00 

FO 

11 

00 

B4 

01 

CO 

03 

ED 

BO 

C9 

21 

00 

BO 

11 

00 

44 

01 

CO 

03 

ED 

BO 


21 

00 

B4 

11 

00 

FO 

01 

CO 

03 

ED 

BO 

C9 

The Assembly notation 

IS 

not 

written 

out 

in 

full 

as 

it only 

repeats the basic 

module using different sources 

and 

destinations 


Besides , 

it increases the 


possibility of editorial typing mishaps. 

The LDIR instruction takes the value in the byte pointed to by the H6 register 
and transfers it into the byte pointed to by the DE register. It then decreases 
the value held in the BC register by one and increases the contents of both the 
HL and DE registers by one. It keeps repeating the whole process until the 
value held in the BC register falls to zero. And it does it fast! 

BASIC programmers can incorporate this routine thus: 

FOR I = 0 TO 45: REM In Initialisation routine. 

READ K:POKE&H7FOO+I ,K 
NEXT 

DATA 33.0,68.17,0,176,1,192.3.237,176 
DATA 33.0.240,17.0.180,1,192,3,237,176,201 
DATA 33.0,176,17,0,68,1.192,3,237,176 
DATA 33,0,180,17,0,240,1,192,3.237,176,201 

The commands CALL7F00 or CALL7F17 can now be used in your program whenever you 
want to save or restore a screen. This version will only save one screen but 
could be modified to save more than one by altering the destination value for 
each screenful. 

- Allan Clarke 
(E6.0E; 


The following article is one that should have appeared a few months ago, after 
the last talk that Andy gave at the meeting. However, he has been away flying 
ever since, and has only just been able to ptepaie this for the newsletter on 
his return. 


CREATING LARGE HEADINGS USING BLOCK GRAPHICS 

Firstly lets look at the capabilities of the Genie and the graphics available. 

Our switch on the CG goes to CHARI mode. This is the first of 4 possible 
character sets. The ASCII numbers start at 128 and only the ones above this 
change ie 0-127 ai'e always the same graphic character. 

CHAR 1 all programmable graphics 
CHAR 2 192 to 255 

CHAR 3 128 to 191 

CHAR 4 128 to 255 

Codes 128-191 ai'e not available directly from the Keyboard. Codes 192-255 are 
available from the keyboard but will only print on the screen as long as . you 
are in the correct character mode i.e. 2 or 4. The computer will though, store 
the blank ones (ASCII codes) and if the correct CHAR mode is selected then 
change the blanks to the appropriate graphics shape. I will only use the 
defined characters at this stage. 

So it IS important you have the correct CHAR set selected. 

Now The Headings 

There are a number of ways of creating large block type words or more 
importantly graphics shapes. 

I will demo the methods you can use with the word 'hello'. 

Lines 70-140 

Let's look at the first method. Decide on the shape you want and the graphics 
blocks you are going to use. It pays to plot this out on graph paper or the 
like. Now make up data statements for each horizontal section e.g. 5 lots of 
data. When writing this into the program put it at the end of tlje program in a 
subroutine using for/next loops to make up a string of characters for each 
line. 

Let's look at the program. 

LIST 70-140 

5 data lines then for next loops to form Z$(l) to Z$(5). 

Now when you want to print the graphic shape print the five Z$'s one below 
the other. Using this method, once the strings are made up the shape can be 
printed anywhere. 

The second method you could use is to make up a large Print® statement with 
the shape inside it. As a line can only have 255 characters you have to be 
firugal in character usage in making up the shape. 

Let's look at lines 210-220. 

There are a couple of drawbacks here. The shape can only be printed in the 
same X slot all the time. Y direction doesn't matter but X will and cause the 
top of the shape to be misaligned. Also can only use 1 colour for the 
complete shapes. Only limited to small shapes because of the 255 character 
limit per program line. 



> CHAR4 : CLEAR550 : CLS : GOBUB 1 20 : G0SUB270 
j PRINT: PRINT-SELECT DEMO <1) (2) (3) <4) (5) " 

-0 S*= INKEY*: IFS*=" "THEN30 
40 S=VAL<S*) :S=INT(S) 

50 ONSG0SUB300 ,70,150,210, 250 
60 G0T020 


70 DATA202, 32, 32, 202, 32, 202, 202, 202, 32, 202, 32, 32, 32, 202, 32, 32, 32, 205, 202, 202, 224 
80 DATA202, 32, 32, 202,32,202, 32, 32, 32, 202,32, 32,32, 202, 32,32,32, 202,32, 32,202 
90 DATA202, 202,202, 202,32, 202,202, 202, 32,202,32,32, 32,202, 32,32, 32, 202,32,32,202 
100 DATA202, 32, 32,202,32,202,32,32, 32,202, 32,32, 32, 202,32, 32, 32, 202,32,32, 202 
no DATA202, 32, 32, 202, 32, 202, 202, 202, 32, 202, 202, 202, 32, 202, 202, 202, 32 
115 DATA228,202,202,225 


120 CLS:F0Ra=lT05: Z* <Q) = " " : FORA= 1 7021 : READX ; Z* < Q ) =Z* ( Q) +CHR* < X ) :NEXTA:NEXTa 
130 F0RX=1TQ5:PRINTZ*(X) :NEXT 
140 RESTORE: RETURN 

150 CLS;PRINT3410, "J J JJJ J J MJJN" 

160 PRINT045O,"J J J J ,3 J J" 

170 PRINT.D490, "JJJJ JJ J J J J" 

180 PRINTo)530, "J J J J J J J" 

190 PRINT5)570, "J J JJJ JJJ JJJ dJJb" 

200 RETURN 

210 H*=’’J J JJJ J J MJJU 

JJJ J J J J 

JJJJ JJ J J J J 

JJJ J J J J 

J J JJJ JJJ JJJ dJJb" 

220 CLS:PRINT3410,H$ 

230 RETURN 

250 CLS:G0SUB210: F0RX=1 T05: CHARI : F0RZ=1 TOlOO; NEXTZ : CHAR4; F0RZ=1 TOlOO: NEXTZ : NEXTX 
260 RETURN 


J= MODSEL 

0 ) 

M= MODSEL 

C 

N= MODSEL 

V 

so does 

U= MODSEL 

V 

d= MODSEL 

Z 

b= MODSEL 

X 

sorry printer 
problems again 


270 N*=Z* < 1 ) +CHR* (26) +STRING* (21 , 8) +Z$ (2) +CHR* (26) +STRING* (21 , 8) +Z* (3) 

+CHR*(26) +STRING* (21 , 8) +Z* (4) +CHR* (26) +STRING* (21 , 8) +Z* (5) 

275 RETURN 

290 CHAR4: RETURN 


300 CHAR1:GOSUB400:PRINT;D778, "CHAR ’ 1' " : G0SUB450: CHAR4: CLS 
3 1 0 CHAR2 : G0SUB400 : PR I NT® 1 38 , " CHAR 2 : G0SUB450 : CHAR4 : CLS 

320 CHAR3:G0SUB400:PRINT;D778, "CHAR '‘3' " : G0SUB450: CHAR4: CLS 
330 CH AR4 : G0SUB400 : PR I NT.-D9 1 0 , " CHAR ' 4 ’ " : GDSUB450 ; RETURN 
400 CLS: X= 128 

405 CDL0URRND(8) : F0RZ=1 T012: PRINTTAB ( Z»3) CHR* ( X ) 5 : X=X+ 1 ; IFX=256THENRETURNELSENEX1 
410 PRINT: PRINT: G0T0405 

450 PRINT3880, "PRESS ANY KEY TO CONTINUE" 

460 1*=INKEY*: IFI*=" "THEN460ELSECLS: RETURN 


The 3txl way is to use print lines for each line of the shape, keying in the 
shapes required in each line. Once again some sort of design will need to be 
drawn up prior to entering a program line. This is quite a simple method 
that allocs colour changes for each line but is difficult to shift around the 
screen. 

Let's look at lines 150-200. 

Now, an interesting effect but one which is easily achieved. 

We know that changing CHAR will either form on or off vaiious characters. 
Okay, let's use this to make tlie word 'hello' fla^. Dy going to a sub- 
routine which aiteiTiately changes char sets the 'hello' will flash or blink. 
Great for attention getters. Just alter the timing loops to change the flash 
rate. Note that characters below 128 ASCII remain visible on the screen. 


- Andy Russell 



PROGRAMING GRAPHICS BLOCKS 

Last time we looked at using the progammed graphics in the 
computer. To recap- 
CHARl. 128-255 programmable 
CHAR2. 128-191 programmable 
192-255 key fronts 
CHAR3, 128-191 graphics set 
192-255 programmable 
CHAR4. 128-255 all preprogrammed 

With that knowledge in hand then as we saw last time by 
changing CHAR sets the blocks of graphics can be displayed on 
or off and if programmed blocks are used also the shape of 
things can be changed. Remember the characters below 128 are 
alphanumeric aind are the same all the time regardless of 
CHAR set chosen The total No of charecters that can be 
programmed is 128 (128-255) 

The first step is to draw the desired shape on graph 
paper. Try to make up the shape with preprogrammed blocks. 
Remember not to use blocks from different CHAR sets as they 
may not all be available at the same time leaving gaps in 
your design. If you intend programming all your shapes then 
stick to CHAR 1. Otherwise CHAR 2 or 3 • are the best as 
thtere is a mix available between programmable and 
preprogrammed blocks. Lets program some blocks to' make up 
this shape. 



One of the problems with block, graphics is block overlap. 
You have to be careful of entering block positions on the 
screen , 

12 blocks are required for this shape. 

Now draw each individual block on an 8/E? grid : 

To help it is handy to have the grid marked with values as 
shown 
1 

2 6 3 1 




All that is required now is to start at the top of each 
block and working horizontally add up the values of active 
sections of each row 


I n 

bl ock 

1 the 

f i rst 

two 

segments are active in each 

row 

so 

they all 

equal 

192. 

Lets 

look at block 7the numbers 

add 

up 

as 

foil ows: - 






ROW 

i 1 

192 








192 








192 







4 

255 







5 

255 







6 

192 







7 

192 







a 

192 






Now 

we need to 

p 1 ace 

al 1 

these numbers into the RAM. 

The 

RAM 

area starts at 

F400H 

and 

stops at F7FF. This area will hold 

8 bytes 

of imformation for CHAR 128-255. 



It 

pays 

to put 

each 

CHAR 

as a separate DATA statment. 

So 



blocks 1,2,3 S< 10 would each be. 

DATA192, 192, 192, 192, 192, 192, 192, 192 

As some blocks are the same you only need S lots of data 
statements. Remember now to note the ASCII No for each CHAR. 
This depends on where in the RAM you poke the^ data. Lets put 
it in at F400H onwards;. Write a FOR/NEXT loop to poke the 
data in. 

FOR X = 0 TO 63: READA: POKE S/HF400TX , A : NEXT 

Now CHR$(128) starts at F400 and finishes at F407H. 
CHFT$(129) starts at F408H and goes on to F40FH etc. 

Now all you need to do is incorporate this into your 
program and use the graphics as required. Of course a 
graphics program such as the one Chris Bishop has written 
wil greatly assist with the oring task, of number entering 
but until you understand what you are doing I suggest the 
method I have shown. 


ANDY RUSSELL 


1 O CLS : CLEAR 1 00 : GOSUB 1 00 
20 CLS: CHARI s C0L0UR4 
30 GOSUB 190 
40 PRINT3379, CH$ 

50 FGRX=1T02000:NEXT 

60 COLOURS : PR I NT0248, STRINGS <25, 197) : PRINT;i)768, STRINGS (25, 197) :F0RX = 1T012 
70 PRINT.1)24S+40*X, CHR^ < 197) : PRINT0272+4O*X, CHR* ( 197) :NEXTX 
80 F0RX==1T020: CHAR2: F0RZ=1T050: NEXT Z; CHARI; F0RZ = 1T050: NEXTZ ; NEXTX 


90 RESTORE: GOTO 10 


1 00 

DATA 192, 

192, 

192, 192, 

192, 

192, 

192, 

192 

no 

DATA255, 

255, 

255, 255, 

192, 

192, 

192, 

192 

120 

DATA255, 

255 , 

255, 255, 

0,0, 

0 , 0 



130 

DATA255, 

255 , 

er ST 'n cr cr 

25wi, 

•J* , •-» , 

•J* ^ 



140 

DATA 192, 

192, 

X / jL. ^ w , 


192, 

192, 

192 


1 50 DAT AO , 0 , 0 , 255 , 255 , 0 , 0 , 0 
1 60 DAT A3 , 3 , 3 , 255 , 255 , 3 , 3 , 3 
170 DATA3, 3, 3, 3, 3, 3, 3, 3 

180 F0RX=0TQ63:READA:P0K.E8<HF400+X, A; NEXTX; RETURN; REM CHRS 128-135 

190 DATA128,26,8, 128,26,8,128,26,8,129,130, 131,26,8,8,8, 132,133,134,26,8,8,8 

200 DAT A 128, 32, 135 

210 CHf=" " ; F0RX=1T026; READA; CH$=CH$+CHR$ < A) ; NEXTX; RETURN 



1 LPRINT CHR*(27) ; ••N";CHR*(6) 

2 LPRINT CHR*(27) I "Q" ;CHR»t70) 

3 LLIST 

4 END 

8 CHAR4 

10 RANDOMCCLEAR (20) : DIMP (4, 8) , S* (4) , R»(5) : X=49 
13 ’CONVERTED TO COLOUR GENIE BY DON EDWARDS 

20 C0L0UR12:CLS:PRINTCHR*(23) :PRINT9129, WHODUNNIT ?": FOR I 

=9 TO 29STEP2:PRINT§40+I, "?" :PRINT9200+I, (NEXT I 

21 PRINT989, "?";TAB(29) ;PR1NT§169, '•?";TAB(29) "?“J 

22 I*=INKEY*: ’CLEAR KEYBOARD 

25 C0L0UR4: PRINT9642, "PRESS <1> FOR INSTRUCTIONS" : PRINT&778, “ PRESS <B 
> TO BEGIN" 

27 GOSUB 4000: I*=INKEY*: IFI*="B" THEN 90 ELSEIFI*<> " I “ THEN 27 
30 C0L0UR12: CLS: PRINTSIO, "W HODUNNIT ?":PRINT 

32 C0L0UR4:PRINT"THE owner of HUNTLEY MANOR HAS BEEN MURDERED. I 

NITIAL INVES"; 

34 PRINT”TIGATIONS SHOW THAT THE MURDERER WAS ONE OF THE FIVE GUESTS 
STAY" ; 

36 PRINT" ING AT THE MANOR AND THAT THE MURDER TOOK PLACE IN ONE OF THE 

m m 
t 

38 PRINT"6 rooms IN THE WEST WING BETWEEN THE HOURS OF 1-PM AND 9-P 

M. * ; 

40 PRINT"YOUR JOB AS INSPECTOR IS TO DEDUCE WHO MURDERED THE HOST," 
42 PRINT"WHERE THE MURDER TOOK PLACE AND AT WHAT HOUR."; 

44 PRINT" YOUR SCORE DEPENDS ON HOW LONG IT TAKES YOU. IF A SUSPECT 

It • 

I 

46 PRINT"MENTIONS THE HOST THEN YOU HAVE FOUND THE ROOM (UNLESS T 

HE ’RE "; 

48 PRINT"LYING) . YOU CAN QUESTION AND GUESS AS OFTEN AS YOU LIKE. I 
F A" 

50 PRINT"SUSPECT SAYS THEY SAW SOMEONE THEN THEY MUST HAVE BEEN IN A 

N • 

9 

52 PRINT"ROOM NEXT DOOR (NOTICE WINDOWS IN FLOOR PLAN)." 

54 PRINT" ALTHOUGH THE INNOCENT SUSPECTS WILL BE HONEST, THE KILLE 
R " ; 

56 PRINT"MAY LIE TO COVER HIS/HER CRIME. ": COLOURl : PRINT9931 , "PRESS <B> 
TO begin: " ; 

58 I$=INKEY$: IFI*<>”B"THEN 58 

90 FOR A=0 TO 4 : READS* (A ): NEXT : FOR A=0T05 : READR* ( A ) : NEXT 
95 DATAKEN, MARY, PAUL, SUE, JOHN, CONSERV, KITCHEN, LIVING, DINING 
97 DATATROPHY, GAMES 

100 DATA153, 233, 313, 393, 473,422,412,402,82, 93, 103 

110 FORi=o TO 4:readss(I) :NEXT i:fori=o to 5:READRR(I) :nexti 

314 colour6:cls:fori=oto5:print§rr(I) + i,R*(i ) ; :nexti 

320 C0L0UR2:PRINT§0,CHR*(129) ; : F0RX*1T030: PRINTiX, CHR* (209) : NEXTX 

325 PRINTllO, CHR*( 129) : PRINT921 , CHR* ( 128) : PRINT931 , CHR* ( 128) 

330 F0RX=40T0440STEP40: PRINT§X, CHR* (213) : NEXTX 
335 F0RX=50T0450STEP40;PRINT§X,CHR*(213) : NEXTX 
340 F0RX=61T0461STEP40:PRINT§X,CHR*(212) :nextx 

345 F0RX=71T0471STEP40: PRINT9X, CHR*(212) : NEXTX 

346 PRINT9200, CHR*( 131 ) : F0RX=201T0230: PRINT9X, CHR* (210) : NEXTX 

347 PRINT§280,CHR*( 129) : F0RX=281T0310: PRINTSX, CHR* (209) : NEXTX 
350 PRINT§480,CHR*(131) : F0RX=481 T0510 : PRINT9X , CHR* ( 210 ) : NEXTX 
355 PRINT§490,CHR*(131) : PRINTS501 , CHR* ( 130) : PRINTS51 1 , CHR* ( 130 ) 

360 P0KE17498, 32:POKE17509, 32:P0KE17617,32:P0KE17618,32 

365 POKE17629,32:POKE17630,32:POKE17658,32:POKE17669,32 
370 P0KE17697, 32:P0KE17698, 32:P0KE17709, 32: POKE 177 10, 32 
380 P0KE17818,32:P0KE17829,32 

390 C0L0UR4: PRINT973, "GUESTS: : C0L0UR6: F0RI=0T04: PRINTSSS ( I ) +1 , S* ( I ) ; 

:next 


400 C0L0UR13: PRINTS560, "HOST MURDERED BETWEEN 1 AND 9 PM." 

460 F0RK=0T04 : P ( K , 0 ) =RND ( 6 ) - 1 : NEXT : F0RL=1TQ8 : F0RK=0T04 
520 A=RND(6)-l: IFA=P ( K, L- 1 ) THEN520 

530 P <K, L) =A: NEXTK, L:M=RND (5) -1 : T=RND (9) -1 ; R*P <M, T) 

610 C0L0UR15:PRINT§553, :PRINT§560, "INSPECTOR, WHO DO YOU WISH TO QUEST 
ION" 

612 I*=INKEY*:IF I*=""THEN 612 

615 S=5:F0R I=0 to 4: IFI*=LEFT*(S*(I) , 1) THEN S®I 
617 NEXT l:IF S= 5 THEN 612 

620 S1*=S$(S) : PRINTS805, ; S1$:F0R I =1 TO lOOZNEXTI 

650 C0L0UR13; GOSUB 3000 : PRINTS560 , " DO YOU WISH TO QUESTION ";S1*" ABOU 
T * 

660 PRINT" 1- WHEREABOUTS AT A CERTAIN TIME" 

670 PRINT"2- TIME SUSPECT WAS IN A CERTAIN ROOM" 

680 PRINT”3- KNOW WHO WHERE OR WHEN" 

685 I*=INKEY*: IFI*=" "THEN 635 

690 A=VAL ( I*) : IFA< 1 0RA>3THEN 685ELSEC=C+1 

700 GOSUB 3000 

710 ONAGOTO 720,990,1200 

720 PRINT§600,S1$; ", WHERE WERE YOU AT ? O’CLOCK? 

730 I»=INKEY*: IFI$=" "THEN 730 

740 T1=0AL < I*) : IFTK lORTl >9 THEN 730 

750 PRINTS600, Sl$; " , WHERE WERE YOU AT "! T1 J " O ’ CLOCK ? 

760 T1=T1-1:R1=P(S,T1) : IF SOMTHEN 860 
790 IF RND(4)<1 THEN 910 

800 R1=RND (6) -1 : IF RND(8)=4 THENT2=10 ELSE T2=0 
820 GOTO 890 

860 T2=T1 ; IFRK >RTHEN 910 
880 IF RND(10)=1 THEN 910 

890 IF T2<T THEN PRINT”THE HOST WAS STILL ALIVE." 

900 IF T2>T THEN PRINT"THE HOST WAS ALREADY DEAD" 

910 PRINT"! WAS IN THE ";R*(R1);" ROOM." 

920 FOR K=0 TO 4: IF K=S THEN 960 

940 IF P (K, T1 ) =R1PRINT" I WAS WITH ";S*(K)!". "; 

950 IF ABS (Rl-P (K, T1 ) ) =1 PRINT"! SAW "5S*(K);". "; 

960 NEXT K:GOTO 610 

990 PRINTS600, SI*; “ , WHAT TIME WERE YOU IN <ROOM> " 

1000 I*=INKEY*:IF I*=""THEN 1000 
1010 GOSUB 2000: IF X=6THEN 1000 
1015 PRINTR*(X) 

1020 IFSOM THEN 1110 
1050 T1=RND (9) : GOTO 1090 

1070 IFT1=F PRINT"! WAS NOT IN THAT ROOM.": GOTO 610 

1090 PRINT"! WAS IN THAT ROOM AT";Ti;" O’ CLOCK" : F0RX=1T0100: NEXTX: GOTO 
610 

1110 K=0:F0RB=0 TO 8:IF P(S,B)<>X THEN 1170 

1140 IFK=0PRINT"1 WAS IN THAT ROOM AT " ; B+ 1 ; : K=1 : ELSE PRINT", ";B+l; 
1170 next: IFK=OPRINT"I WAS NOT IN THAT ROOM." 

1180 GOTO 610 
1200 C1=C1+1 

1220 GOSUB 3000:PRINT§560, "DO YOU KNOW: 1- KILLER, 2- ROOM, 3- TIME 4 
- BAFFLED " 

1230 I*=INKEY*:iF I*=""THEN 1230 
1240 A=VAL<I*):IF A<10RA>4 THEN 1230 
1260 0NAG0T01265, 1410, 1340, 1550 

1265 IFH=1THEN C 1=C 1 - 1 : PRINT " YOU ALREADY KNOW THE KILLER IS “S*tM)".": 
F0RX=1T0400: NEXTX: G0SUB3000: GOTO 610 
1270 colours: PRINT" THE KILLER IS ? "J 
1272 I*=INKEY*: IFI*=" "THEN 1272 

1280 X=5: for A=0 to 4: IFI*=LEFT*(S*(A) , 1 ) THEN X=A 
1285 NEXT A:IFX=5 THEN 1272 



1287 PRINTS*<X) 

1300 IFMOX THEN 1530 

1310 PRINT" YOU HAVE THE KILLER INSPECTOR. H=1 

1315 C0L0UR3:PRINT§SS <M) , 5 

1316 FORX=1T0900: NEXTX: G0SUB3000 


1320 IFH=1ANDH1=1ANDH2=1 THEN 1A70 ELSE 610 

1340 C0L0UR13: IFH1=1 THEN C1=C1-1 : PRINT"Y0U ALREADY KNOW IT WAS AT"!T+ 
l; "O’CLOCK" : 60T01316 

1350 colours: PRINT" TIME OF MURDER ?"; 

1360 I*=INKEY*: IFI«=" "THEN 1360 

1365 T1=VAL ( I*) : IFTK lORTl >9 THEN 1360 

1367 C0L0UR13: PRINTTl ; “O’CLOCK" : F0RX=1T0500: NEXTX 

1370 IFTl-lOT THEN 1530 

1375 G0SUB3000 

1380 PRINT" INSPECTOR YOU HAVE THE RIGHT TIME.":H1=1 
1385 C0L0UR3:PRINT§250,T+1"0 CLOCK" 

1390 C0L0UR13: PRINTS560, "HOST WAS MURDERED AT" i T+ 1 i "O’ CLOCK. 

G0T01316 

1410 G0SUB3000: IFH2=1 THEN C1=C1-1 : PRINT" YOU ALREADY KNOW IT WAS IN T 

HE "5R*(R);’ R00M.":G0T0 610 

1420 colours: PRINT"ROOM OF MURDER ? "; 

1422 1*=INKEY*: IFI*=" " THEN 1422 
1430 GOSUB 2000:iFX=6 THEN 1422 
1440 C0L0UR13: PRINTR*(X) 

1450 IFXOR THEN 1530 

1455 C0L0UR3:PRINT§RR(X) +43, "*" ! 

1460 C0L0UR13: PRINTS680, " INSPECTOR, YOU HAVE THE RIGHT ROOM.":H2=l; 
G0T01316 

1470 CLS:PRINT§121, "YOU’VE SOLVED THE MURDER CASE INSPECTOR" 

1505 S=100-C-8*<Cl-3) : IFS<0 THEN S=0 

1507 S%=S 

1508 BL*=" " : IFC1-3>1THEN BL*="S" 

1510 PRINT" IT TOOK YOU C 5 " QUESTIONS AND " : PRINTC 1 -3; " BLUNDER" 5 BL*; " 

tl 

• 

1512 CM*="TERRIBLE. " : IF S>30 THEN CM$=" NOT VERY GOOD." 

1513 IFS>49 THENCM*="NOT TOO BAD.":IFS>62 THEN CM$="MEDIOCRE. " 

1514 1FS>75 THEN CM*= " REASONABLY SWIFT. ": IFS>85 THEN CM*="A NEW AMOUNT 
OF SWIFTNESS. " 

1515 PRINT'.PRINT" THAT GIVES YOU A SCORE OF "; S%! PRINT : PRINT" TH 

ATS ";CM* 

1520 GOTO 1590 

1530 PRINT" INSPECTOR, YOU ARE HIGHLY INCOMPETENT TRY AGAIN." 

1540 FORX=1T0900:NEXTX:GOSUB3000: GOTO 610 

1550 PRINTS600," TOO BAD INSPECTOR. ".’ PRINT" THE FACTS ARE:” 

1570 PRINTS*(M)!" KILLED THE HOST AT";T;" O’CLOCK IN THE 
1580 PRINTR*(R);" (ROOM)" 

1590 COLOURl: print: PRINT" DO YOU WANT A NEW CASE 

1595 I*=INKEY*: IFI$="Y"THEN RUN ELSE IF I*<>"N" THEN 1595 

1600 cls:end 

2000 X=6:F0R A=0 to 5: IFI*=LEFT*(R*(A) , 1) THENX=A 

2010 NEXT: RETURN 

3000 PRINT§560,CHR*(31) 

3010 RETURN 

4000 COLOUR12:POKE 17408+X,32: FOR J=1 TO 10: NEXT J:POKE 17408+X,63 
4010 IFX< 69 THEN X=X+2: RETURN; ELSE IFX>209 THEN X=X-2: RETURN 
4020 IF(X*209)0R<X=169)0R(X=129)0R(X= 89)THEN X=X- 80 
4030 X=X+40: RETURN 



I 


RANDOM MORSE CODE GENERATOR from Dick CoJJins 


This IS a program which generates random morse code (sound) in 5 character groups. It 
produces characters in the range A - Z and 0-9. 

The speed is set by inputting a number e.g. 30 for 9 words per minute. 

Pitch change is in line 2000. Play (1,^,4, 15) can be: Play (1,^,7, 15) for a better (higher) 
note. 

10 REM RANDOM MORSE CODE GENERATOR by R . J . COLLINS , PARAPARAUMU 
20 INPUT"SPEED ( 15-17wpni; 20-12wpm5 30-9wpm; 100-SLOWER THAN LEARNER) ’;S 
25 A=0:B=-1 
30 RANDOM 

40 A=RND(36) IFOR Z=1 TO (3*S):NEXT Z 
50 B=B+l:lF B=56OTO1000ELSE60 

60 ON A GOTO 500,501,502,503,504,505,506,507,508,509,510,511,512,513,514,515,516 
,517,518,519,520,521,522,523,524,525,526,527,528,529,530,531,532,533,534,535 

500 td=s:gosub2000:td=s*3:gosub 2000:goto30 

501 TD=S*3;G0SUB 2000:TD=S:GOSUB 20001 GOSUB 2000:GOSUB 2000: goto 30 

502 TD=3*S : 6OSUB2000 : TD=S I GOSUB2000 1 TD=3*S : GOSUB2000 1 TD=S I GOSUB2000 1 GOTO 30 

503 TD=3*S:G0SUB 2000: TD=S:GOSUB2000:GOSUB2000: goto 30 

504 TD=S:GOSUB2000;GOTO30 

505 TD=S: 6OSUB2000: GOSUB2000: TD=3K-S: GOSUB2000; TD= SI 6OSUB2000: GOTO30 

506 TD=S*3 : GOSUB2000 I GOSUB2000 I TD=S I GOSUB2000 I GOTO30 

507 TD=S: GOSUB2000: GOSUB2000: GOSUB2000: GOSUB2000: GOTO30 

508 TD=S:GOSUB2000:GOSUB2000:6OTO30 

509 TD=S: GOSUB2000: TD=S*3 I GOSUB2000: GOSUB2000: 6OSUB2000: GOTO30 

510 TD=S*3; GOSUB2000: TD=S: GOSUB2000: TD=S*3: GOSUB2000: GOTO30 

51 1 TD=S: GOSUB2000: TD=S*3: GOSUB2000: TD=S: GOSUB2000: GOSUB2000: GOTO30 

512 TD=S*3; GOSUB2000: GOSUB2000: GOTO30 

513 TD=S*3: GOSUB2000: TD=S: GOSUB2000: GOTO30 

514 TD=S*3: GOSUB2000: GOSUB2000: GOSUB2000: GOTO30 

515 TD=S: GOSUB2000: TD=S*3 1 GOSUB2000; GOSUB2000: TD=S: GOSUB2000: GOTO30 

516 TD=S*3: GOSUB2000: GOSUB2000: TD=S: GOSUB2000: TD=S«-3: GOSUB2000: GOTO30 

517 TD=S : GOSUB2000 I TD=S*3 I GOSUB2000 I TD=S I GOSUB2000 I 6OTO30 

518 TD=S: GOSUB2000: GOSUB2000: GOSUB2000: GOTO30 

519 TD=S*3:GOSUB2000:GOTO30 

520 TD=S : GOSUB2000 1 GOSUB2000 *. TD=S*3 1 GOSUB2000 1 6OTO30 

521 TD=S: GOSUB2000: GOSUB2000: GOSUB2000: TD=S-)f-3: GOSUB2000: GOTO30 

522 TD^S : GOSUB2000 1 TD»S«3 1 GOSUB2000 1 6OSUB2000 1 GOTO30 

523 TD=S*3: GOSUB2000: TD=S; GOSUB2000: GOSUB2000: TD=S*3: GOSUB2000: GOTO30 

524 TD=S*3 ; GOSUB2000 I TD=S I GOSUB2000 I TL=S*3 I QOSUB2000 I 6OSUB2000 I 6OTO30 

525 TD=S*3: 6OSUB2000: GOSUB2000; TD=S: GOSUB2000: GOSUB2000: GOTO30 

526 TDsS: GOSUB2000: TD-S«-3: GOSUB2000:GOSUB2000: GOSUB2000: GOSUB2000: GOTO30 

527 TD=S: 6OSUB2000: GOSUB2000; TD=S*3: GOSUB2000: GOSUB2000: 6OSUB2000: GOTO30 

528 TD=S: QOSUB2000; GOSUB2000: GOSUB2000: TD=S*-3: GOSUB2000; GOSUB2000: GOTO30 

529 TD=S : GOSUB2000 1 GOSUB2000 1 GOSUB2000 1 6OSUB2000 1 TD=S*3 : GOSUB2000 1 GOTO30 

530 TD=S: GOSUB2000: GOSUB2000: GOSUB2000: GOSUB2000: GOSUB2000: GOTO30 

531 TD=S*3: GOSUB2000: TD=S I GOSUB2000: GOSUB2000: GOSUB2000: GOSUB2000: GOTO30 

532 TD=S*3: GOSUB2000: GOSUB2000: TD=S; 6OSUB2000: GOSUB2000: GOSUB2000: GOTO30: REM 7 

533 TD=S*3 : GOSUB2000 1 GOSUB2000 : GOSUB2000 1 TD=S I GOSUB2000 : GOSUB2000 1 GOTO30 

534 TD=S*3: GOSUB2000: GOSUB2000: GOSUB2000: GOSUB2000: TD«S: GOSUB2000: GOTO30 

535 TD=Slt3: GOSUB2000: GOSUB2000: GOSUB2000: GOSUB2000: GOSUB2000: GOTO30 
1000 B=-l:FOR G=1 TO (6*S);NEXT QIGOTO 30 

2000 PLAY (1,4, 4, 15) IFOR D=lTO TDiNEXT DI PLAY ( 1 , 4, 4, 0) I FOR G=1 TO SINEXT GiRETURN 


